home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / Mode.xdme < prev    next >
Text File  |  1994-11-09  |  576b  |  18 lines
  1. /* mode.xdme */
  2. /* Selects the appropriate mode according to the file name */
  3.  
  4. arg name
  5.  
  6. dot = lastpos(".", name)
  7. if dot ~= 0 then ext = substr(name, dot)
  8.  
  9. select
  10.     when pos(":S/",name) > 0 | left(name,2) = "S:" then "programming-mode"
  11.     when pos(":REXX/",name) > 0 | left(name,5) = "REXX:" then "arexx-mode"
  12.     when dot = 0 then "text-mode"
  13.     when ext = ".TXT" | ext = ".DOC" | ext = ".GUIDE" | ext = ".README" | ext = "DOK" then "text-mode"
  14.     when ext = ".C" | ext = ".CC" then "c-mode"
  15.     when ext = ".MAN" then "manual-mode"
  16.     otherwise "programming-mode"
  17. end
  18.